
   1 .
   2 . ROBOT ALERT!
   3 . VERSION 4.5
   4 . BY SUPER SOFTWARE
   5 .
   9 :RETURN ;NT=0;BC=90;FC=7;CLEAR ;GOSUB 10000;GOTO 130
  10 BOX @(A+1),@(A+2)+5,3,2,1;BOX @(A+1),@(A+2)+3,7,1,1;BOX @(A+1)+3,@(A+2)+1,1,3,1;BOX @(A+1)-3,@(A+2)+2,1,3,1
  11 BOX @(A+1),@(A+2),1,5,3;BOX @(A+1),@(A+2)-3,5,1,1;RETURN 
  20 FOR A=1TO BSTEP 3
  21 GOSUB 90;@(A)=1;@(A+1)=D;@(A+2)=E;IF PX(D,E)GOTO 21
  22 GOSUB 10;NEXT A;RETURN 
  30 FOR A=1TO C;GOSUB 90;BOX D,E,6,6,1;NEXT A;RETURN 
  40 GOSUB 90;IF PX(D,E)GOTO 40
  41 X=D;Y=E;CX=X;CY=Y;PRINT "X",;RETURN 
  50 IF X+V>70V=0
  51 IF X+V<-70V=0
  52 IF Y+W>30W=0
  53 IF Y+W<-30W=0
  55 RETURN 
  70 P=0;Q=0;BOX @(Z+1),@(Z+2)+1,7,9,2;IF @(Z+1)>X P=-10
  71 IF @(Z+1)<X P=10
  72 IF @(Z+2)>Y Q=-10
  73 IF @(Z+2)<Y Q=10
  74 IF R<3IF PIF QGOSUB 80
  75 @(Z+1)=@(Z+1)+P;@(Z+2)=@(Z+2)+Q;A=Z;GOSUB 10;IF PX(@(A+1),@(A+2))RETURN 
  78 &(23)=255;FOR N=65TO 0STEP -1;&(21)=N;NEXT N;&(23)=0;S=S+K;GOSUB 100
  79 @(A)=0;BOX @(A+1),@(A+2)+1,7,9,2;GOSUB 110;RETURN 
  80 I=RND (2);IF I=1Q=0
  81 IF I=2P=0
  82 RETURN 
  90 D=(RND (14)-7)×10;E=(RND (6)-3)×10;RETURN 
 100 CY=40;CX=-79;PRINT "SCORE: ",#4,S;RETURN 
 110 FOR Z=1TO BSTEP 3;IF @(Z)IF @(Z+1)=@(A+1)IF @(Z+2)=@(A+2)GOSUB 10
 111 NEXT Z;RETURN 
 130 A=1;@(A+1)=-39;@(A+2)=0;GOSUB 10;CY=0;CX=-30;PRINT "= ",#3,K," POINTS
 140 FOR Z=1TO 1500;NEXT Z;BOX 0,0,154,12,2
 190 GOSUB 30;GOSUB 20;GOSUB 40;BOX 0,40,160,8,2
 195 GOSUB 100;CX=58;CY=40;PRINT #1,T,"/",#2,R,
 200 V=JX(1)×10;W=JY(1)×10;GOSUB 50;CX=X;CY=Y;PRINT " ",;IF PX(X+V,Y+W)F=1
 202 BOX 0,35,160,1,1;NT=3;MU=U;NT=0;U=U+1;IF U>90U=65
 210 X=X+V;Y=Y+W;CX=X;CY=Y;PRINT "X",;IF F F=0;GOTO 600
 215 FOR A=1TO BSTEP 3;IF @(A)=0NEXT A;GOTO 500
 220 Z=RND (B÷3)-1;Z=Z×3+1;IF @(Z)GOSUB 70;GOTO 240
 230 GOTO 220
 240 IF PX(X,Y)GOTO 600
 250 GOTO 200
 500 CY=40;CX=0;PRINT "FAR OUT!",;B=B+9;C=C-1;K=K×2
 510 R=R+1;&(10)=16;CY=0;NT=8;PRINT "10001113000333500055580008880000";NT=0
 580 IF B>30B=30
 581 IF C<7C=7
 582 IF C>12C=12
 590 FOR A=1TO 999;NEXT A;GOSUB 10080;GOTO 130
 600 CX=0;CY=40;PRINT "KILLED!!";T=T-1
 610 C=C+1;&(21)=31;FOR Z=10TO 200STEP 8;&(19)=Z;BOX X,Y+1,7,9,3;NEXT Z;&(19)=0;BOX X,Y+1,7,9,2
 620 FOR Z=1TO 15;&(21)=255;&(23)=255;NEXT Z;&(21)=0;&(23)=0
 630 IF TGOTO 580
 700 BOX 0,0,154,10,2;CY=0;CX=-24;PRINT "GAME OVER
 710 IF &(23)RUN 
 720 GOTO 710
10000 B=15;C=10;T=3;R=1;K=25;S=0;U=65
10080 &(10)=16;BOX 0,-4,160,80,1;BOX 0,-4,158,78,2;&(10)=180;RETURN 

:RETURN 
>